<<<<<<< .mine
unit UInicio;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFInicio = class(TForm)
    BRegistroEmp: TButton;
    BSuplencias: TButton;
    procedure BRegistroEmpClick(Sender: TObject);
    procedure BSuplenciasClick(Sender: TObject);
    procedure AbrirTablas ();
    procedure CerrarTablas ();
    procedure ActivarTablas ();
    procedure DesactivarTablas ();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FInicio: TFInicio;

implementation

uses Uregistro, USuplencias, UDatamodule;
                      //SysInit
{$R *.dfm}

procedure TFInicio.BRegistroEmpClick(Sender: TObject);
begin
   DataModule1.TEmpleados.Append;
   FRegistro.Show;
end;

procedure TFInicio.BSuplenciasClick(Sender: TObject);
begin
   DataModule1.TSuplencias.Append;
   FSuplencias.ShowModal;
end;

procedure TFInicio.AbrirTablas ();
begin
   DataModule1.TEmpleados.Open;
   DataModule1.TSuplencias.Open;
   DataModule1.TPuesto.Open;
   DataModule1.TServicio.Open;
   DataModule1.TTurno.Open;
   DataModule1.THorario.Open;
   DataModule1.TCategoria.Open;
   DataModule1.TSubnivel.Open;
end;

procedure TFInicio.CerrarTablas ();
begin
   DataModule1.TEmpleados.Close;
   DataModule1.TPuesto.Close;
   DataModule1.TServicio.Close;
   DataModule1.TTurno.Close;
   DataModule1.THorario.Close;
   DataModule1.TSuplencias.Close;
   DataModule1.TCategoria.Close;
   DataModule1.TSubnivel.Close;
end;

procedure TFInicio.ActivarTablas ();
begin
   DataModule1.TEmpleados.Active:=True;
   DataModule1.TSuplencias.Active:=True;
   DataModule1.TPuesto.Active:=True;
   DataModule1.TServicio.Active:=True;
   DataModule1.TTurno.Active:=True;
   DataModule1.THorario.Active:=True;
   DataModule1.TCategoria.Active:=True;
   DataModule1.TSubnivel.Active:=True;
end;

procedure TFInicio.DesactivarTablas ();
begin
   DataModule1.TEmpleados.Active:=False;
   DataModule1.TPuesto.Active:=False;
   DataModule1.TServicio.Active:=False;
   DataModule1.TTurno.Active:=False;
   DataModule1.THorario.Active:=False;
   DataModule1.TSuplencias.Active:=False;
   DataModule1.TCategoria.Active:=False;
   DataModule1.TSubnivel.Active:=False;
end;


end.
=======
unit UInicio;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFInicio = class(TForm)
    BRegistroEmp: TButton;
    BSuplencias: TButton;
    procedure BRegistroEmpClick(Sender: TObject);
    procedure BSuplenciasClick(Sender: TObject);
    procedure AbrirTablas ();
    procedure CerrarTablas ();
    procedure ActivarTablas ();
    procedure DesactivarTablas ();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FInicio: TFInicio;

implementation

uses Uregistro, USuplencias, UDatamodule;
                      //SysInit
{$R *.dfm}

procedure TFInicio.BRegistroEmpClick(Sender: TObject);
begin
   DataModule1.TEmpleados.Append;
   FRegistro.ShowModal;
end;

procedure TFInicio.BSuplenciasClick(Sender: TObject);
begin
   DataModule1.TSuplencias.Append;
   FSuplencias.ShowModal;
end;

procedure TFInicio.AbrirTablas ();
begin
   DataModule1.TEmpleados.Open;
   DataModule1.TSuplencias.Open;
   DataModule1.TPuesto.Open;
   DataModule1.TServicio.Open;
   DataModule1.TTurno.Open;
   DataModule1.THorario.Open;
   DataModule1.TCategoria.Open;
end;

procedure TFInicio.CerrarTablas ();
begin
   DataModule1.TEmpleados.Close;
   DataModule1.TPuesto.Close;
   DataModule1.TServicio.Close;
   DataModule1.TTurno.Close;
   DataModule1.THorario.Close;
   DataModule1.TSuplencias.Close;
   DataModule1.TCategoria.Close;
end;

procedure TFInicio.ActivarTablas ();
begin
   DataModule1.TEmpleados.Active:=True;
   DataModule1.TSuplencias.Active:=True;
   DataModule1.TPuesto.Active:=True;
   DataModule1.TServicio.Active:=True;
   DataModule1.TTurno.Active:=True;
   DataModule1.THorario.Active:=True;
   DataModule1.TCategoria.Active:=True;
end;

procedure TFInicio.DesactivarTablas ();
begin
   DataModule1.TEmpleados.Active:=False;
   DataModule1.TPuesto.Active:=False;
   DataModule1.TServicio.Active:=False;
   DataModule1.TTurno.Active:=False;
   DataModule1.THorario.Active:=False;
   DataModule1.TSuplencias.Active:=False;
   DataModule1.TCategoria.Active:=False;
end;


end.
>>>>>>> .r29
